Delphi - como cambio la hora del sistema?

buenas tengo un problema a la hora de cambiar la hora del sistema desde delphi
quiero que la hora y fecha que tengo en un campo edit1 la introduzca a la del sistema he hecho lo siguiente pero me da fallo

not enough actual parameters

procedure Ttxthora.Button1Click(Sender: TObject);
var
ahora:Tdatetime;
begin
ahora:=strtodatetime(edit1.Text);
windows.SetLocalTime(datetimetosystemtime(ahora));
end;

si sabeis como se puede arreglar os lo agradeceria

Antes del private de tu form pon lo siguiente:
procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
en la misma línea dale a Ctrl+Shift+C y copia el siguiente codigo:
var
NewDateTime: TSystemTime;
begin
FillChar(NewDateTime, SizeOf(NewDateTime), #0);
NewDateTime.wYear := Year;
NewDateTime.wMonth := Month;
NewDateTime.wDay := Day;
NewDateTime.wHour := Hour;
NewDateTime.wMinute := Minu;
NewDateTime.wSecond := Sec;
NewDateTime.wMilliseconds := MSec;
SetLocalTime(NewDateTime);
Luego en un botón invocas el procedimiento:
var
hh, mm, ss, ms, d, m, a : Word;
begin
DecodeTime(StrToTime(Edit1.Text), hh, mm, ss, ms);
DecodeDate(Date, a, m, d);
SetDateTime(a, m, d, hh, mm, ss, ms);
Este te sirve tanto para la hora como para la fecha,
Suerte.