[Delphi] Автозапуск

[Вавел из ГМТУ]

Я думаю компилятор говорит: "Я не знаю что такое "Text"....."

[Рамик]

Сообщение от Вавел из ГМТУ

Я думаю компилятор говорит: "Я не знаю что такое "Text"....."

ага. я уже разобрался

[Рамик]

procedure TForm5.FormCreate(Sender: TObject);
var f,f1:textfile;
    rec:string;
    i:integer;
    name:string;
    date,pass,proba:string;
    daytxt:string;
    day:integer;
    kod:integer;
    parol,k:integer;
begin

date:=DateToStr(now);
daytxt:=copy(date,1,2);
val(daytxt,day,kod);



name:=edit1.text;
assignfile(f,'pass.dat');
reset(f);
while not(eof(f)) do begin
readln(f,rec);
listbox1.Items.Add(rec);
end;
closefile(f);

if (day mod 2)=0 then begin
assignfile(f1,'name.dat');
reset(f1);
read(f1,rec);
closefile(f1);
proba:='cmd /c net user ';
i:=random(listbox1.Count);
for k := 1 to Listbox1.Count - 1 do  begin
if k=i  then
pass:=listbox1.Items[k];
end;
name:=rec+' ';
insert(name,proba,17);
i:=length(proba);
insert(pass,proba,i+1);
winexec(PChar(proba),SW_Hide);

end;

помогите, я хочу сделать так ччтобы при запуске программа проверяла дату и если дата четное число то программа меняла бы пароль...
так вот проверять то проверяет, а вот организовать смену пароля что не получается....
вот тут я делал что бы при нажатии кнопки менялся пароль... все работает:

procedure TForm5.Button2Click(Sender: TObject);
var rec,name,proba,pass:string;
    i:integer;
    f1:textfile;
begin
assignfile(f1,'name.dat');
reset(f1);
read(f1,rec);
closefile(f1);
proba:='cmd /c net user ';
pass:=edit2.text;
name:=rec+' ';
insert(name,proba,17);
i:=length(proba);
insert(pass,proba,i+1);
winexec(PChar(proba),SW_Hide);
end;

[Вавел из ГМТУ]

Ну и наворотил..
Где храняться новые пароли?

Если в файле, то не проще ли считать рандомную строку?