Динамические списки в делфи

[bibigon]

Динамические списки в делфи

Доброго времени суток,помогите пожалуйста.
Я написал программу,в первых трех полях вводятся фамилия имя отчество, а в 4ом поле надо вывести фамилию и инициалы,это я сделал,.но мне надо чтоб присутствовал динамический список,придумать надо самому,я не знаю как это сделать.
вот код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit4.Text:=Edit1.Text+' '+Edit2.Text[1]+'.'+Edit2.Text[1]+'.';
end;
Заранее благодарю.

 

[Joker666]

держи:

procedure TForm1.Button1Click(Sender: TObject);
var
nam:^string;
a,b,c:string;
begin
new(nam);
a:=edit1.text;
b:=edit2.text;
c:=edit3.text;
nam^:=a[1]+b[1]+c[1];
edit4.text:=nam^;
edit1.text:='';
edit2.text:='';
edit3.text:='';
dispose(nam);
end;

 

[AlexZir]

nam^:=a[1]+b[1]+c[1];

Небольшая поправка:
nam^:=a+b[1]+c[1];