var
myFile : TextFile;
text : string;
begin
AssignFile(myFile, 'Test.txt');
ReWrite(myFile);
WriteLn(myFile, 'Hello');
WriteLn(myFile, 'World');
CloseFile(myFile);
Reset(myFile);
while not Eof(myFile) do
begin
ReadLn(myFile, text);
ShowMessage(text);
end;
CloseFile(myFile);
end;