Замена символа в Edit (delphi)

[a_n_n_a]

Здравствуйте, у меня есть 3 Edit'a: Имя, Отчество, Фамилия.
В поле фамилия пользователь прописывает фамилию сам, а инициалы проставляются здесь же автоматом из полей Имя и Отчество. Это я сделала.
Но хочу, чтобы при изменении, например в поле Имя, изменялся инициал в поле Фамилия без удаления уже введенной ранее фамилии и инициала Отчества.
Что-то не могу сообразить, как сделать. Подскажите, пожалуйста)

[AlDelta]

Обработчик OnChange для первого Edit'a:

procedure TForm1.Edit1Change(Sender: TObject);
var s:string;
begin
  s:=Edit3.Text;
  if length(Edit1.Text)>0 then
    s[1]:=Edit1.Text[1];

  s[2]:='.';
  s[3]:=' ';

  if length(Edit2.Text)>0 then
    s[4]:=Edit2.Text[1];

  s[5]:='.';
  s[6]:=' ';

  Edit3.Text:=s;
end;

Для второго указываете этот же обработчик.
Изначально, третий Edit должен содержать 6 пробелов. Защиту "от дурака" думаю напишете сами.

[a_n_n_a]

Спасибо большое, разобралась)