Загрузка параметров в Edit и их выбор через ComboBox

[evg_m]

t:=TstringList.Create;
t.Delimiter:=' ';
t.DelimiterText:='2 3 45 4567';
for j:=0 to t.count-1 do
  showmessage(t.strings[j]);

[Влад12]

Трудно ответить, если не знаешь общей постановки задачи.
Вот мой код:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
m := TMemo.Create(nil);
m.Parent := Form1;
m.Visible := False;
m.Lines.LoadFromFile('дома.txt'); // имя нашего текстового файла
for i := 0 to m.Lines.Count - 1 do // если имя дома - 1-е слово в строке
combobox1.Items.Add(Copy(m.Lines.St rings[i], 1, Pos(#32, m.Lines.Strings[i])));
end;
// на выбор дома из списка:
procedure TForm1.ComboBox1Select(Sender: TObject);
var
i, j: Integer;
s: String;
begin
s := Trim(m.Lines.Strings[combobox1.ItemIndex]); { если строка начинается с пробела }
with Panel1 do
for i := 0 to ControlCount - 1 do
if Controls[i] is TEdit then begin
j := Pos(#32, s);
TEdit(Controls[i]).Text := (Copy(Trim(s), 1, j));
s := Trim(Copy(s, j, Length(s))) + #32; { добавляем пробел, иначе последнее слово строки может не попасть в TEdit. Функция Trim - на случай нескольких пробелов между словами }
end;
end;