semplice programma delphi

[p87]

WriteLn(T, Format('%s-%s',[edFirstname.Text,edSurname.Text]));

o semplicemente

WriteLn(T, edFirstname.Text+'-'+edSurname.Text);