Вывести инициалы

[Aleksandr]

Для того чтобы вывести инициалы я ввожу фамилию, имя, отчество в разные Edit, а как сделать чтобы все вводилось в один Edit
вот мой код

 var
S2,S3,S4: string;
begin
  S2 := Edit2.Text; //имя
   S3 := Edit3.Text; //отчество
  Delete(S2, 2,15);
    Delete(S3, 2,15);
  S4:= S2+'.'+S3+'.'; /инициалы

label1.caption:=Edit1.Text+' '+S4;

т.е. мне нужно предложение из трех слов разбить на слова и во 2 и 3 слове оставить только первые буквы.

[Serge_Bliznykov]

смотрите на функции Pos PosEx (ну и Copy, конечно)

[SERG1980]

Да и разбивать не обязательно

procedure TForm1.Button1Click(Sender: TObject);
var s,s1:string;
begin
 s:=edit1.Text;
 s1:='';
 s1:=s1+Copy(s,1,Pos(' ',s)-1)+' ';
 Delete(s,1,Pos(' ',s));
 s1:=s1+s[1]+'.';
 Delete(s,1,Pos(' ',s));
 s1:=s1+s[1]+'.';
 edit2.Text:=s1;
end;

[Aleksandr]

SERG1980 спасибо.

[artemavd]

А почему бы по первым буквам просто не считывать символы в третий Edit да и все?
(например на событие OnKeyPress первого Edit-a):

Edit4.Text:=Edit1.Text[0] + '.';

на втором эдите:

Edit4.Text:=Edit1.Text[0] + '.' + Edit2.Text[0] + '.';

и на третьем эдите:

Edit4.Text:=Edit1.Text[0] + '.' + Edit2.Text[0] + '.' + Edit3.Text[0] + '.';