DBEditFeld Text anfügen geht nicht

[nachtstreuner]

Hallo Delphifreunde,

ich habe auf einer Form 2 DBEditfelder(TEL) + (FAX), in dem ersten befindet sich die Tel. Nr z.B. 0865 708 92 11,
im zweiten DBEditfeld soll nun, sobald dieses 2.DBEdit den Focus erhält, ein Tel des Strings aus dem ersten DBEdit Feld (Tel)
eingetragen werden. z.B. 0865 708 92. Dies funktioniert auch, aber sobald ich ein Zeichen hinter dem Text in DBEdit2 (Fax)
anhängen möchte, wird das 2. DBEditfeld komplett gelöscht. BeispielCode:

Code:

procedure TfrmAdmin.DBEdit_MA_FAXEnter(Sender: TObject);
begin
  TsuiDBEdit(Sender).Color := $00C6FFFF;
  IF DBEditTEL.Text<> '' then begin
     DBEdit_MA_FAX.Text := Leftstr(DBEditTEL.Text,11);
     //DBEdit_MA_FAX.SelText := DBEdit_MA_FAX.Text;
  end;
end;

Wie kann ich es lösen, das der Teil der Telefonnummer stehen bleibt und ich nur die 2 stellige Faxnummer anhängen kann ?

Vielen Dank für eure Hilfe.

mfg
Nachstreuner