[lmikle]

1. Делай через буфеную переменную.
2. FindComponent спасет отца русской демократии

Что-то типа того:

Код:

var 
  i : Integer;
  s : String;
  e1, e2 : TEdit;
begin
  S := '';
  For i := 1 to 5 Do // Пусть у нас 5 пар едитов
    Begin
       e1 := FindComponent('sid' + IntToStr(I)) As TEdit;
       e2 := FindComponent('spice' + IntToStr(I)) As TEdit;
       If (e1 <> nil) and (e2 <> Nil) 
          Then S := e1.Text + ':' + e2.Text + ';';
    End;
  Memo1.Text := S;
end;