I have a problem

Look at this code

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState );
begin
? Key:=0;
end;

In this code, Edit1.Text still empty string but If I change the code like this

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
? Key:=0;
? ShowMessage('a');
end;

then the Edit1.Text become fill by char that I stroke.

Is this a bug ?

=============INTOSOFT============

ALEXIO CHAOS

Yahoo Messager

=================================

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.lazarus.freepascal.org/pipermail/lazarus/attachments/20090129/84f9b817/attachment.html