Как развёрнутую форму ФИО из одного ListBox выводить в другой в сокращённой форме

[maybach32]

Здравствуйте товарищи)
Помогите пожалуйста мне с заданием...надеюсь на ваш ответ)
Суть такова Хочу чтобы из одного ListBox ( ну или другого редактора, если можно сделать легче к примеру memo), развёрнутую форму ФИО (Иванов Иван Иванович)...при нажанитии на кнопку переводить в другой ListBox в сокращённой форме (Иванов И.И.)
Толком даже не знаю с чего начать...знаю только тут нада работать со строками, думаю нада разбить одну строку на три. Вот только не знаю как это воплатить. помогите пожалуйста)

[856100]

procedure TForm1.Button1Click(Sender: TObject);
var
  I:Integer;
  S, S1, S2, S3:string;
begin
  Memo2.Clear;
  for I:=0 to Memo1.Lines.Count-1 do
  begin
    S:=Memo1.Lines[I];
    S1:=Copy(S, 1, Pos(' ', S));
    Delete(S, 1, Pos(' ', S));
    S2:=Copy(S, 1, Pos(' ', S));
    Delete(S, 1, Pos(' ', S));
    S3:=Copy(S, 1, Length(S));
    Memo2.Lines.Add(S1+Copy(S2, 1, 1)+'.'+Copy(S3, 1, 1)+'.');
  end;
end;

Весы слева =))