Работает

function CheckingToFloat(var StrX: String; var StrY: String): Boolean;
var
    IsCorrect: Boolean;

begin
    IsCorrect := True;
    try
        StrToFloat(StrX);
    except
        IsCorrect := False;
    end;

    try
        StrToFloat(StrY);
    except
        IsCorrect := False;
    end;
    CheckingToFloat := IsCorrect;
end;

procedure TBlock1_Laba1.DiscoverClick(Sender: TObject);
var
    StrX, StrY: String;
Begin
    StrX := EditX.Text;
    StrY := EditY.Text;
    if CheckingToFloat(StrX, StrY) then
    begin
        If (StrToFloat(EditX.Text) - 1) *(StrToFloat(EditX.Text) - 1) + (StrToFloat(EditY.Text) - 1) * (StrToFloat(EditY.Text) - 1) <= 1 then
            Memo1.Lines[0] := 'Точка принадлежит множеству D'
        Else
        Begin
            Memo1.Lines[0] := 'Точка не принадлежит множеству D'
        End;
        if Length(Memo1.Lines[0]) > 1  then
            N6.Enabled:= True;
    end
    else
    begin
        MessageDlg('Проверьте поля ввода, это должны быть вещественные числа!', mtError, [mbOK], 0);
        EditX.Clear;
        EditY.Clear;
    end;

End;