unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,

  StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Image1: TImage;

    Image2: TImage;

    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form1: TForm1;

  play: boolean = false;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Edit2Change(Sender: TObject);

begin

  if play then begin

    if copy(Edit1.Text, 1, Length(Edit2.Text)) <> Edit2.Text then begin

      Edit2.Text := copy(Edit2.Text, 1, Length(Edit2.Text)-1);

      Edit2.SelStart := Length(Edit2.Text);

    end else begin

      Image2.Left := Edit1.Left + round(Edit1.Width*Length(Edit2.Text)/Length(Edit1.Text));

      if Edit1.Text = Edit2.Text then begin

        play := false;

        Edit1.ReadOnly := false;

        ShowMessage('You WIN!!!');

      end;

    end;

  end;

end;

procedure TForm1.Edit1Change(Sender: TObject);

begin

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if play then begin

    Image1.Left := Image1.Left + 10;

    if Image1.Left >= Edit1.Left + Edit1.Width then begin

      play := false;

      Edit1.ReadOnly := false;

      ShowMessage('You loze');

    end;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 Image1.Left := Edit1.Left;

 Image2.Left := Edit2.Left;

 Edit1.ReadOnly := True;

 Edit2.Text := '';

 Edit2.SetFocus;

 play := true;

end;

end.