begynderspørgsmål

hej

jeg er i gang med at lave en simpel udgave af lykkehjulet, men der er opstået nogle problemer. er der nogen, som kan finde fejlen:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    konE: TEdit;
    vokE: TEdit;
    gaetE: TEdit;
    svarE: TEdit;
    vokB: TButton;
    gaetB: TButton;
    konB: TButton;
    procedure konBClick(Sender: TObject);
    procedure gaetBClick(Sender: TObject);
    procedure vokBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  facit:string;

facit:='hej';

procedure skrivtegnisvar(tegn:char);
var
svar:string;
i:integer;
begin
  svar:=form1.svare.text;
  for i:=1 to length(facit) do
    if tegn=facit[i] then svar[i]:=tegn;
  form1.svare.text:=svar;
end;

procedure TForm1.konBClick(Sender: TObject);
var
  tegn: char;
begin
  tegn:=kone.text[1];
  skrivtegnisvar(tegn);
  kone.text:='';
end;

procedure TForm1.gaetBClick(Sender: TObject);
begin
  if gaete.text=facit then
  begin
    svare.Text:=facit;
    showmessage('nemlig');
    svare.text:='???';
  end
  else
  begin
    messagebeep(1);
    showmessage('nej');
  end;
  gaete.text:='';
end;

procedure TForm1.vokBClick(Sender: TObject);
var
  tegn: char;
begin
  tegn:=voke.text[1];
  skrivtegnisvar(tegn);
  voke.Text:='';
end;

end.