Fórum Incompatibilidade de Tipos #157935

Veja o código a seguir.

procedure TForm1.Imprimir1Click(Sender: TObject);
var
line:integer;
Printtext:textfile;
begin
Assign(Printtext); ------ Erro -> Incompatible types: TPersistent ant Text
if printdialog1.execute then
begin
assignprn(printtext);
rewrite(printtext);
printer.canvas.font:=memo1.font;
for line:=0 to memo1.lines.count-1 do
begin
writeln(printtext,memo1.lines[line]);
end;
closefile(printtext);
end;
end;

Como mostrado acima o seguinte erro é retornado:
Erro -> Incompatible types: TPersistent ant Text

Se alguém souber
Agradeço.