Не выводит текст через Label

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var r1,r2,x1,x2,y1,y2:double; i:integer;
begin
r1:=StrToFloat(Edit1.Text);
r2:=StrToFloat(Edit2.Text);
x1:=StrToFloat(Edit3.Text);
x2:=StrToFloat(Edit4.Text);
y1:=StrToFloat(Edit5.Text);
y2:=StrToFloat(Edit6.Text);
for i:=1 to 3 do begin
if(r1 + r2) < sqrt(sqr(x1 - x2) + sqr(y1 - y2)) then  Label7.caption:='Нет общих точек';
if(r1 + r2) = sqrt(sqr(x1 - x2) + sqr(y1 - y2)) then Label7.caption:= 'Одна общая точка';
if(r1 + r2) > sqrt(sqr(x1 - x2) + sqr(y1 - y2)) then Label7.caption:='Две общих точки';
end;
end;
 
end.