[Delphi] jak odzczytać text z pominięciem znaku #1

cze wszystkim mam problem z odczytem, mam taki kod do odczytu

var
TF : TextFile;
S : String;
begin
AssignFile(TF, 'plik.txt'); { przypisanie pliku do zmiennej }
Reset(TF); // otwarcie pliku
try
while not Eof(TF) do
begin
Readln(TF,Edit1.Text + #1 + Memo1.Lines.Add(S)); // odczytanie pliku
// dodanie zmiennej do komponentu

end;

finally
CloseFile(TF);
end;
end;

w pliku .txt tygląda tak:
Text1text2 jest dłuzszy

i nie wiem co jest nie tak ale przecież powinno to działać!

--

DELPHI 6

Read(plik, zmienna);

Delete(zmienna, Pos(#1, zmienna), 1)

--
Vogel [kylix.3.oe@slackware.8.1.0.1]

Life is just a dream, you know...
[Cowboy Bebop]

nie wiem czy z tym restet jest dobrze bo nie pamietam :]

a teraz cos:
Readln(TF,Edit1.Text + #1 + Memo1.Lines.Add(S));
e i to ma ci znak pominac ??? ble ! cos mi tu sie nie podoba :)
readln(tf,s); //jako s : string;

if pos('#1', s) > 0 then
delete(s,pos('#1',s)+ lub - 1 albo nic :),1);

i chyba cos tam ejszcze trza dorobic bo mnie tu zgięło jak zobaczylem twoj kod :)

a teraz czy: tamten #1 to naewno szukany znak?

lol dla mnie zwlekałem az tylk minut :) Vogel 1st prize ;]