wie erstelle ich eine function mit aufruf & deklaration

[sneumann]

wie packe ich jetzt diese Anweisungen in eine Funktion die ich jederzeit aufrufen kann? + aufruf und deklaration?!

muss ich einfach davor schreiben zum deklarieren? Das packe ich dann oben zu public bzw private?!
und dann irgendwo im programm mit Connecten(); aufrufen?!

Delphi-Quellcode:

function Connecten()

begin
SerialPortNG1.SendString('0000sr' +#$05);
  if WaitForAnswer(100) < 0 then
    begin
      memoResult.Lines.Add('Error: No Answer on 4422');
      Exit;
    end;
  pbProgress.StepIt;
    if  Ord(SerialPortNG1.ReadNextClusterAsString[1]) = 6    then     // Wenn Antwort =6 dann ist OKAY
    memoResult.Lines.Add('Connect erfolgreich')
    else
   memoResult.Lines.Add('Answer : '+IntToHex(Ord(SerialPortNG1.ReadNextClusterAsString[1]),2));
end;

{wenn Antwort nicht 06(ACKNOWLEDGE) dann zeige mir andere Antwort. Kann ich hier auch die komplette Antwort als String ausgeben?!? anstatt in Hex umwandeln?!}