Спасибо вам обоим большое, всё работает, там кстати ещё одна ошибочка была, надо было обнулять S:='' в массиве ещё. Вот полный код, может кому-нибудь понадобиться.
Код:
procedure TForm9.Button1Click(Sender: TObject);
var
i : Integer;
s : String;
e1, e2 : TEdit;
begin
S := '';
For i := 1 to 50 Do
Begin
S := '';
e1 := FindComponent('sid' + IntToStr(I)) As TEdit;
e2 := FindComponent('sprice' + IntToStr(I)) As TEdit;
If (e1 <> nil) and (e2 <> Nil)
Then if (e1.text <> '') and (e2.text <> '')
then S := S + e1.Text + ':' + e2.Text + ',';
form1.Script.Text :=form1.script.Text + S;
End;
end;
end.