Program ktroy wylosuje mi zywcięzcęę krzy?żówk

Hej to co w temacie, jakiś kod, jakiś przyklad plizzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

CiEpEk!!@#$%^&*()_+

zapisz nazwiska w pliku, wczytaj je do memo1 i zrób cos takiego:

var x : integer;
begin
x:=Random(0,length(memo1.lines);
Message('zwycięzcą jest' + memo1.lines[x], ......);
end;

--
Spin
Delphi - Lets make Windows better....

Spin troszke pomieszales :)

var
i : Integer;
begin
Randomize;
i := Random(Memo1.Lines.Count-1);
ShowMessage('Wygral '+Memo1.Lines[i]);
end;
---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-