michaels shit

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    panmenu: TPanel;
    lab1: TLabel;
    Pan: TPanel;
    lab2: TLabel;
    but4: TButton;
    but5: TButton;
    but6: TButton;
    memo: TMemo;
    Button1: TButton;
    Button2: TButton;
    button45: TButton;
    Label45: TLabel;
    edit: TEdit;
    edit_word: TEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Pan_hide: TPanel;
    procedure but4Click(Sender: TObject);
    procedure but5Click(Sender: TObject);
    procedure but6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure button45Click(Sender: TObject);
   procedure mySqMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,ATT,W,edval,flag,P,T : integer;
  mysq : array[0..25] of TPanel;
  mysq1 : array[0..25] of TPanel;

  word : string;
implementation

{$R *.dfm}
//Loads the random words from word files
procedure TForm1.but4Click(Sender: TObject);
begin
 memo.lines.loadfromfile ('Words\4 Letters.txt');
 Memo.lines.count;
 button1.enabled := true;
 button2.enabled := true;
 but4.enabled := false;
 but5.enabled := false;
 but6.enabled := false;
 Randomize;
 i := 0 + random(10);
 word := memo.lines[i];
 edit_word.Text := word;
end;

procedure TForm1.but5Click(Sender: TObject);
   begin
    memo.lines.loadfromfile ('Words\5 Letters.txt');
    button1.enabled := true;
    button2.enabled := true;
    but4.enabled := false;
    but5.enabled := false;
    but6.enabled := false;
    Randomize;
    i := 0 + random(10);
    word := memo.lines[i];
    edit_word.Text := word;
   end;

procedure TForm1.but6Click(Sender: TObject);
     begin
      memo.lines.loadfromfile ('Words\6 Letters.txt');
      button1.enabled := true;
      button2.enabled := true;
      but4.enabled := false;
      but5.enabled := false;
      but6.enabled := false;
      Randomize;
      i := 0 + random(10);
      word := memo.lines[i];
      edit_word.Text := word;
     end;



procedure TForm1.Button1Click(Sender: TObject);
          begin
           showmessage(word);
           edit.Clear;
          end;

procedure TForm1.Button2Click(Sender: TObject);
var
j,k:integer;
begin
Pan_hide.visible := false;
W := 0;
ATT := (length(word)+5);
label3.Caption := inttostr(length(word));
label4.Caption := inttostr (ATT);
for j := 0 to 25 do
  begin
    mysq[j] := TPanel.create(Self);
    mysq[j].Tag := j;
    mysq[j].parent := Pan;
    mysq[j].bevelOuter := BvRaised;
    mysq[j].Bevelwidth := 3;
    mysq[j].caption := Label45.caption [j+1];
    mysq[j].height := 50;
    mysq[j].color := clYellow;
    mysq[j].width := 50;
    mysq[j].enabled := true;
    mysq[j].top := 3 + (j div 7) *52;
    mysq[j].left := 1+50*(j mod 7 );
    mysq[j].OnMouseDown := MySqMouseDown;
  end;

for k := 1 to length(word) do
  begin
    mysq1[k] := TPanel.create(Self);
    mysq1[k].Tag := k;
    mysq1[k].parent := Panel1;
    mysq1[k].bevelOuter := BvRaised;
    mysq1[k].Bevelwidth := 3;
    mysq1[k].height := 50;
    mysq1[k].color := cllime;
    mysq1[k].width := 50;
    mysq1[k].enabled := true;
    mysq1[k].top := 3 + (k div 7) *52;
    mysq1[k].left := 1+50*(k mod 7 );




  end;



end;

procedure TForm1.mySqMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
j,i,k:integer;
begin
 j := TShape(Sender).Tag;
 if length(edit.Text) = length(word) then edit.clear;
 if button = mbleft then MySq[j].color := clRed;
 ATT := ATT - 1 ;
 label4.caption := inttostr (ATT);

if ATT = 0 then
 begin
  showmessage('GAME OVER');
  Button2Click(sender);
  but4.enabled := True;
  but5.enabled := True;
  but6.enabled := True;
  Pan_hide.Visible := true;
 end;


  for i := 0 to length(word) do
  begin
   if mysq[j].Caption = word[i] then

    begin
      mysq1[i].Caption := word[i];
      mysq[j].color := cllime;
      W := W+1;
    end;
  end;

if W = length(word) then
 begin
  showmessage ('You Win');
  Button2Click(sender);
  but4.enabled := True;
  but5.enabled := True;
  but6.enabled := True;
  Pan_hide.Visible := true;
 end;

end;




procedure TForm1.button45Click(Sender: TObject);
begin
 close;
end;


end.