[Delphi] Wpis do DBEdit-a

Mam kłopot z wpisaniem wartości programowo do DBEdit-a.
Jest tak.
Dla zdarzenia OnKeyPress tego komponentu wpisują warunek żeby sprawdzał czy baza jest pusta, i wtedy ma wpisywać do tego komponentu nazwę.
if Table1.IsEmpty then DBEdit.Text:='jakis tekst';
Niestety ale w wyniku tego w DBEdicie tworzony jest wpis:
naciśnięta_literka+Jakis tekst
Jak pozbyć się tej pierwszej literki która została naciśnięta?
Nie pomaga dodawanie DBEdit.Clear.
czy ktoś pomoże?

[stuk]

Oki już sobie poradziłem robiąc tak:
if Table1.isEmpty then
begin
key:=#0;
DBEdit.Text :='jakiś tekst';
end;

[cya]