Tak na brudno (aby zobaczyć czy działa) coś takiego:
w implementation po end tmainform:
TRecord = record
Data : TDateTime;
Tresc : String;
end;
var
Form1: TForm1;
Przypomnij : array of TRecord;
procedure Tmainform.tmPrzypomnijTimer(Sender: TObject);
begin
SetLength(Przypomnij, 1);
Przypomnij[0].Data := Now;
Przypomnij[0].Tresc := 'Tresc...';
Przypomnij[1].Data := Now;
Przypomnij[1].Tresc := 'To tresc...';
end;
Hymm... Co Wy na to? (otwiera mi sie debugger CPU)