unit Main;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, ShellApi;
type
 TForm1 = class(TForm)
  Button1: TButton;
  procedure Button1Click(Sender: TObject);
 end;
var
 Form1: TForm1;
implementation
function CreateProcessWithLogonW(
 lpUsername: PWideChar;
 lpDomain: PWideChar;
 lpPassword: PWideChar;
 dwLogonFlags: DWORD;
 lpApplicationName: PWideChar;
 lpCommandLine: PWideChar;
 dwCreationFlags: DWORD;
 lpEnvironment: Pointer;
 lpCurrentDirectory: PWideChar;
 const lpStartupInfo: _STARTUPINFOA;
 var lpProcessInfo: PROCESS_INFORMATION): BOOL; stdcall; external 'advapi32.dll' name 'CreateProcessWithLogonW';

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
 hLib:THandle;
 si: _STARTUPINFOA;
 pi: Process_Information;
begin
 ZeroMemory(@Si, Sizeof(si));
 si.cb := SizeOf(si);
 CreateProcessWithLogonw('administrator', nil, 'master', 1, nil, 'notepad', 0, nil, nil, si, pi);
end;
end.