[Pigmalion]

Старый новый бред.

Код:

type
 TRec = record
  n1,n2: string;
  Pr: boolean;
end;

var
  Ar: array[1..2] of TRec;

private
    { Private declarations }
  procedure MyMouseDown(Sender: TObject; Button: TMouseButton;Shift:TShiftState;
 X, Y,x1,y1,x2,y2,z1,z2,z3,x3,y3,x4,y4: Integer;n1,n2,z4:string);

procedure TForm1.MyMouseDown(Sender: TObject; Button: TMouseButton;Shift:TShiftState;
 X,Y,x1,y1,x2,y2,z1,z2,z3,x3,y3,x4,y4:integer; n1,n2,z4:string);
var
 c: TComponent;
 Canvas:TCanvas;
 s1,s2:string;
 begin
  for i := 1 to 26 do
  Ar[i].Pr:=false;
 begin
  if TImage(Sender).name = s1 then
  for i  := 1 to 26 do
  begin
   if Ar[i].n1 = s1 then Ar[i].Pr := True;
  end;
   if TImage(Sender).name = s2 then
   for i  := 1 to 26 do
  begin
   if Ar[i].n2 = s2 then Ar[i].Pr := True;
  end;
 begin
  if Ar[i].Pr = true
  then Canvas.Brush.Color:=clgreen
  else Canvas.Brush.Color:=clred;
  Canvas.rectangle(x1,y1,x2,y2);
  Canvas.Font.Size:=z3;
  Canvas.Font.Color:=clBlack;
  Canvas.TextOut(z1,z2,z4);
  Ar[i].Pr:= false;
 end;
    for i := 1 to 26 do
  begin
  if Ar[i].n1 =s1 and Ar[i].n2 =s2 then
   Canvas.Pen.Color:=clgreen
   else Canvas.Pen.Color:=clred;
  Canvas.Pen.Width:=5;
  Canvas.MoveTo(x1,y1);
  Canvas.LineTo(x2,y2);
  end;
 end;
end;

Процедура на основе стандартной.Выводит ошибку на выделенной строке.Все переменные локальные-как надо.

[Black Raider]

Что за ошибку то?

Условие в "() and ()"- в скобки заключи.

[RusMaXXX]

замени выделенную строку if Ar[i].n1 =s1 and Ar[i].n2 =s2 then на if (Ar[i].n1 = s1) and (Ar[i].n2 = s2) then