помагите пожалуйста

[Пепел Феникса]

procedure TForm1.Edit1Exit(Sender: TObject);
begin
 Edit2.Text:=Edit1.Text[Length(Edit1.Text)];
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
 Edit1.Text:=Edit2.Text[Length(Edit2.Text)];
end;

по вашему заданию, вот процедуры событий нужных для едитов