держи 3 столбца..
Кстати, хорошая реализация, все четко, ничего лишнего..
Можно было бы без использования компонента

with TStringList.Create do begin
Text:=s;
SaveToFile('out.txt');
Free;
end;

на

assignfile(fil,'out.txt');
rewrite(fil);
write(fil,s);
closefile(fil);
// добавить в var - fil:text;

Но эт чисто символически или под Паскаль ..