evento keypress

[ronson]

hola amigos, como podria hacer que al pulsar el intro dentro de un edit1 se me
activara el codigo asociado a un boton:

procedure TfrmBProductos.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (key=#13) then
begin

.... /* Aqui es donde meteria el codigo*/
/* he probado con TfrmBProducto.BitBtn1Click; pero me dice uqe me faltan parametros*/
end;

end;


Gracias de antemano.