[lazarus] TMemo & TListBox I/O errors?

[Bogdan M.Maryniuck]

Dear all.
Here is a real code from Delphi4, which works properly:
 
procedure TForm1.Button1Click(Sender: 
TObject);var  tt:textfile;  s:string;begin  
assignfile(tt,'c:\temp\test.txt'); //very big file  
reset(tt);  while not eof(tt) do     
begin       
readln(tt,s);       
form1.Memo1.Lines.Add(s);       
form1.ListBox1.Items.Add(s);     
end;end;
 
On Lazarus this code is NOT working: tt:textfile -- unknown 
something;
form1.memo1.add(s) -- freezing the X-Server (on Linux)
form1.ListBox1.Items.Add(s) -- is NOT working at all (or freezing the 
X-Server).
 
 
So howto... load a some text from an file to some shild like a simple 
NOTEPAD?
Thanx.