wie erstelle ich eine function mit aufruf & deklaration

[Union]

Delphi-Quellcode:

function messwertLesen : double;
begin
  // Wie sehen die Stringdaten genau aus?
  result := StrToFloat(SerialPortNG1.ReadNextClusterAsString);
  SerialPortNG1.SendString(#$02 + ':FETC' +#$0A +#$03);
  if WaitForAnswer(100) < 0 then
     memoResult.Lines.Add('Error: No Answer on 4422')
  else
     memoResult.Lines.Add(Format('Messwert : %f', [result]));
end;

Aber die ursprüngliche Logik sieht mir schon seltsam aus. Das Senden von FETCH sollte ja wahrscheinlich einen Messwert anfordern, der muss erst noch empfangen werden. Mach Dir mal ein Ablaufdiagramm, das setzt Du in Kommentare um und dann schreibst Du den Source dazu.