array auslesen

[eagle86]

mein record:

Delphi-Quellcode:

tMessdaten = record
        Datum       :string;
        HTemperatur :real;
        TTemperatur :real;
        Niederschlag:real;
        Luftfeuchte :integer;
        Luftdruck   :real;
        Windgeschwindigkeit :real;

mein array:
tMessungen = array [1..50] of tMessdaten; Versuch das ganze in das Array einzulesen:

Delphi-Quellcode:

procedure tForm1.EntryMeasure(var aMess : tMessungen; i:integer);
begin
for i:=1 to 50 do
with aMess[i] do
 begin
  datum:=edit1.text;
  Htemperatur:=strtofloat(edit2.text);
  Ttemperatur:=strtofloat(edit3.text);
  Niederschlag:=strtofloat(edit4.text);
  Luftfeuchte:=strtoint(edit5.text);
  Luftdruck:=strtofloat(edit6.text);
  Windgeschwindigkeit:=strtofloat(edit7.Text);
 end;
end;

Naja und nun soll halt der Inhalt des Arrays, wenn denn da überhaupt was drin ist , in ein Memofeld also Maximal 50 Datensätze.
ps: vielen dank für die schnellen antworten