Несовмешение 'String' and 'Text' (Delphi)

[rusell]

var tmp: String;
testFile: TextFile; {System.Text}
begin
    AssignFile( testFile, {File} );
    Rewrite( testFile );
    with AThread.Connection do begin {AThread - TIdPeerThread} {IndyClient}
        Readln( tmp ); {Читаем из AThread троку}
        Writeln( testFile, tmp );
        { И получаем пру компиляции следующее:

Incompatible types: 'String' and 'Text' :eek: 

}
    end;
    CloseFile( testFile );
end;

В первые такое вижу, до этого писал в текст. файлы из TStrings и нечего, а тут такое ...

Может кто-то подсказать как этого избежать?!

[rusell]

Хорошая мысля приходит опосля ...

Может ли это быть из-за того что он пытается писать в поток, а не в Файл?

    with AThread.Connection do begin {AThread - TIdPeerThread} {IndyClient}
       Writeln( testFile, tmp );

[ИльяМалиновский]

Лучше использовать:

reset(input, 'file.txt');
rewrite(output, 'file.txt');
read(var1);
write(var1);

Меньше мороки нежели с assign.