[fofka]

Может кому и пригодится. Как говорится, пусть будет.

Код:

function f(a:string):string;
  var
    b:string;
  begin
    b:=copy(a,1,pos(' ',a));
    delete(a,1,pos(' ',a));
    b:=b+a[1]+'.';
    delete(a,1,pos(' ',a));
    f:=b+a[1]+'.';
  end; 

procedure TForm1.FIO;
 begin
  Edit1.Text := f(ComboBox2.Text);
end;

В ComboBox2.Text=Иванов Иван Иванович, в Edit1.Text=Иванов И.И.
Спасибо всем за помощь.