Createing a procedure in delphi

Sure, I can help you create a procedure in Delphi. Could you please provide more details about what you would like the procedure to do?