Reagere på tast tryk?

Du må lave en onkeypress-event på din Form og så bare tilføje bogstavet til en global variable/globalt array.

og så sætte onkeypreview til true :-)

kan man måske få lidt eksempel kode?

har selv fået det til at fungere.

Så husk at acceptere dit svar, så spørgsmålet lukkes og du får pointene igen.

hensewq: Ånden med dette ekspert-fora er at dele sin viden med andre. Hvis du lukker et spørgsmål med "har selv fået det til at fungere" så er dit indlæg værdiløst. Havde du lagt din løsning ved, havde andre kunne bruge det.

var
  Form1: TForm1;
  cheat: boolean;
  i: integer;

  const
  keyword: array [0..10] of char = ('s','h','u','t','d','o','w','n',' ','-','a');

procedure TForm1.FormCreate(Sender: TObject);
begin
  i := 0;
  cheat := false;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = keyword[i] then
    begin
      if i = 10 then
        begin
          form1.Caption := 'Snyd';
          cheat := true;
          i := 0;
        end
      else
        begin
          i := i+1;
        end
    end;
end;

Sådan hrc.