[Kailon]

Вот еще вариант

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 g1,g2,g3: Integer;
 TempS: String;
begin
 g1 := 0; g2 := 0; g3 := 0;
 TempS := Edit1.Text;
 g1 := StrToInt(Copy(Temps,1,Pos('.', TempS) - 1));
 Delete(TempS,1,Pos('.', TempS));
 g2 := StrToInt(Copy(Temps,1,Pos('.', TempS) - 1));
 Delete(TempS,1,Pos('.', TempS));
 g3 := StrToInt(Copy(Temps,1,Length(TempS)));
//а дальше уже идет простое сравнение чисел
 if (g1 > g2) and (g1 > g3) then
  begin
   //твой код
  end;

 if (g1 = g2) and (g1 > g3) then
  begin
   //твой код
  end;

 if (g1 > g2) and (g1 = g3) then
  begin
   /твой код
  end;
end;