Erro em uma função simples.

Ainda estou me iniciando no Delphi, e estou com dificuldade em utilizar uma função.
Para exemplificar, eis o código de uma pequena função, mas que está me retornando o erro ´Too many actual parameters´ na linha onde chamo por ela.
Alguém pode me auxiliar? (Utilizo o Delphi 6).

unit teste;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Mask, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Edit1Exit(Sender: TObject);
private
function dobro1:integer;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.dfm}

function Dobro1(valor:integer):integer;
begin
result := valor * 2;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
var
Total : integer;
Numero :integer;
begin
Numero := strTOint(Edit1.Text);
Total := dobro1(Numero); //Ocorre erro nesta linha: ´Too many actual parameters´.
Edit2.Text := intTOstr(Total);
end;

end.