[segas]

Задача на первый взгляд простая, но чтото вот не получается
вообщем на форме по горезонтале стоят 5 кнопок BitBtn, необходимо чтобы они красивым образом плано переехали в другое положени и расположились по вертикали.
вот скинул код для реского перемещения 2х из них с одного положения в другое:

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
If   (((Form1.BitBtn1.Top:=208) and (Form1.BitBtn1.Left:=200)) or ((Form1.BitBtn2.Top:=208) and (Form1.BitBtn2.Left:=288)))
         Then  begin
         Form1.BitBtn1.Top:=16;  Form1.BitBtn1.Left:=16;
         Form1.BitBtn2.Top:=96;  Form1.BitBtn2.Left:=16;
         end;
end;

end.

Admin: Пользуемся тегами! Иначе санкции!

но вылезли 2ошибки:
[Error] Unit1.pas(29): Operator not applicable to this operand type
[Error] Unit1.pas(31): Type of expression must be BOOLEAN

но мне то нужно чтоб все 5 передвигались и плавно, в дабавок без ошибок.
Зарание спасибо, необходимо для проекта на зачет 1й стадии экзамена