[Мяфк]

Спасибо вам обоим большое, всё работает, там кстати ещё одна ошибочка была, надо было обнулять 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.

[Мяфк]

Дабы не создавать новую тему, задам вопрос тут:
Мне вот надо ещё, что бы после последнего Tedit'а удалялась запятая:
1:1,2:2,3:3, вот последняя запятая мне не нужна. Знаю что есть функция delete, но там надо указать номер символ в строке, но номер узнать я не могу, как же мне сделать, что бы удалялся именно последний символ?

Извините, что побеспокоил, решение довольно просто:

Код:

  s2:=form1.script.text;
  Delete (s2,length(s2),1);
  form1.script.text := s2;

[Страдалецъ]

Можно и так, а можно посмотреть как я эту проблему решил в самом начале темы. Смотрите код:

Код:

if Memo1.Text <> ''
           then Memo1.Text := Memo1.Text+','+TEdit(Form1.Componets[i]).Text
           else Memo1.Text := TEdit(Form1.Componets[i]).Text;

вот этот if и отвечает за правильное заполнение строки.
Адаптируйте под свой код если есть желание.