вот паскаль, делфи почти тоже самое
var a:string;
t:text;
begin
assign (t,'c:\имяфаила.txt'); {связаться с фаилом в каталоге}
rewrite (t); {подготовить фаил для записи}
writeln (t,a); {пишем данные}
close (t); {закрываем фаил}
end.