[DELPHI] Modificare il nome del computer

[camaleonteplus]

Sto aggoiungendo l'opzione del cambio del nome PC al mio programma ma alla riga:

SysSetComputerName:= cambia.text;

mi da questo errore:
[Error] Email.pas(477): Not enough actual parameters

function SysSetComputerName(const S: string): boolean; begin   Result := Windows.SetComputerName(PChar(S)); end;  procedure TForm1.Button1Click(Sender: TObject); begin   SysSetComputerName:= cambia.text; end;