function EditsTexts(container: TComponent) : string;
var
i: integer;
begin
Result := EmptyStr;
for i := 0 to container.ComponentCount-1 do
begin
if (container.Components[i] is TEdit) then
Result := Result + TEdit(container.Components[i]).Text;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage( EditsTexts(Self) );
end;