Проверка перпендикулярности/параллельности векторов

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;
 
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    btn1: TButton;
    btn2: TButton;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    btn3: TButton;
    btn4: TButton;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    lbl10: TLabel;
    lbl11: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
    value : string;
    value2 : string;
    value3 : string;
    value4 : string;
implementation
 
{$R *.dfm}
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  // Çàäàåì Èêñ è Èãðèê
  repeat
    value := InputBox('Ââåäèòå Õ', 'Ïîæàëóéñòà, ââåäèòå Õ', '');
    lbl7.Caption:=value;
  until value <> '';
    repeat
    value2 := InputBox('Ââåäèòå Y', 'Ïîæàëóéñòà, ââåäèòå Y', '');
    lbl8.Caption:=value2;
  until value2 <> '';
 
end;
 
procedure TForm1.btn2Click(Sender: TObject);
begin
  // Çàäàåì U è V
  repeat
    value3 := InputBox('Ââåäèòå U', 'Ïîæàëóéñòà, ââåäèòå U', '');
    lbl9.Caption:=value3;
  until value3 <> '';
  repeat
    value4 := InputBox('Ââåäèòå V', 'Ïîæàëóéñòà, ââåäèòå V', '');
    lbl10.Caption:=value4;
  until value4 <> '';
 
end;
 
//  Ïðîâåðêà ïåðïåíäèêóëÿðíîñòè
procedure TForm1.btn3Click(Sender: TObject);
var
  perp: string;
begin
   perp:= value*value3+value2*value4;
   if perp = '0' then
   begin
   ShowMessage('Âåêòîðû ïåðïåíäèêóëÿðíû');
   end;
end;
// Ïðîâåðèòü ïàðàëëåëíîñòü
end.