[Alegun]

Не, а если их много, ведь ТСу нужно "вывода с editов по button", тогда лучше так

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
 i: integer;
begin
 with TStringList.Create do
  begin
   for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
     Add((Components[i] as TEdit).Text);

   SaveToFile('FileName.txt');
   Free;
  end;
end;