Hola.
Si te entendí bién, podrías hacer:
Código Delphi
[-]
procedure TForm1.btnConcatenaClick(Sender: TObject);
const
SEP = ','; var
i: Integer;
s: string;
co: TComponent;
begin
for i := 1 to 9 do
begin
co := FindComponent(Format('Edit%d',[i]));
if co is TEdit and (TEdit(co).Text <> '') then s := s + TEdit(co).Text + SEP;
end;
SetLength(s, Length(s)-1); Edit10.Text := s;
end;
Saludos