komponenty do programu zapisującego losowania w grze keno.

Jakich komponentów użyć żeby napisać program który będzie potrafił przeczytać wylosowane liczby w grze internetowej keno a następnie zapisać je w postaci pliku tekstowego. Od czego zacząć pisanie takiego programu?

Co to znaczy przeczytać?? Ma mówić ?? To się nagraj i odtwarzaj głos ;P ... Z czego Ty chcesz pobierać te dane? Jak z netu to ściągaj plik html który zawiera te liczby i wyciągaj go ze źródełka strony.

Gotowy Program w wersji Innej niż kod Poniżej (Nie tworzy Maski tylko czyta ją z pliku):
GRA KENO
Gdy zmienią sposób wyświetlania numerów należy stworzyć Inną maske :)

Wrzuć 2X memo idHttp1
Memo2 uzupełnij TAK (Wyniki Losowania wprost ze źródła strony pobierz- Jako szablon- nie z tąd bo tu jest układ zaburzony)

06   12   14   23   24   31   36   37   39   48   51   54   58   61   63   65   66   68   72   77   78   79

Const Digits=['0'..'9']  ;

function FindMask(Mask:String;Source:String):Integer; //funkcja szuka maskę z szablonu
var
i:Integer;
h:integer;
begin
Result:=0;
i:=1;
H:=1;
While (i<Length(Source)-1)  do
begin
  H= Length(Mask) then
  begin
  Result:=i-H;
  Exit;
  end;

 if (((Mask[h])=(Source[i])) or (Mask[h]='X')) then
 Begin
 inc(i); inc(H);
 end else
 Begin
 i:=i-H+2;
 H:=1;
 end;
  end;
end;

function MakeMatric( S :String):String;  //funkcja tworzy szablon na podstawie wydartych ze strony numerów
var
i:Integer;
begin
Result:=S;
for i:=1 to Length(S) do
if S[i] in Digits then Result[i]:='X';
end;

function GetNumbers(S:String):String ;  //funkcja wydziera z fragmętu strony odpowiadającemu  szablonowi numerki
var
i:integer;
begin
Result:='';
for i:=0 to Length(S) do
begin
if S[i] in  Digits then Result:=Result+S[i];
if (S[i-1] in Digits) And(not (S[i] in digits)) then Result:=Result+',';
end;
end;


function GetNumbersGame(MatricFromSource,Source:String):String;  //wszystko razem :)
var
matric:String;
Pos:Integer;
begin
Matric:=MakeMatric(MatricFromSource);
Pos:=  FindMask(Matric ,Source) ;
Result:= GetNumbers(Copy(Source,Pos,Length(matric))  );
end;

var S:String;

procedure TForm1.FormCreate(Sender: TObject);
begin
Memo2.Text:=MakeMatric(Memo2.Text);
S:=idhttp1.Get('http://www.michigan.gov/lottery/0,1607,7-110-28916_29056---,00.html');
Memo1.Text:= GetNumbersGame(Memo2.Text ,S);   //Pobranie numerów
S:=''; //skaskasowanie zrodla  bo juz niepotrzebne;
 end;

end.

PS Należy sie zgrzewka [browar]