1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function Transform(AString: String): String;
begin
  Result := StringReplace(AString, '° ', ',', [rfReplaceAll]);
  Result := StringReplace(Result, '"', '', [rfReplaceAll]);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ShowMessage(Transform('52° 31"'));
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

function GradStrToFloatStr(s: String;blCalc: Boolean): String;
var z,i : Integer;
    e,ee : Extended;
begin
  SetLength(Result,Length(s));
  i := 1;
  for z := 1 to Length(Result) do
    if s[z] in ['0'..'9','°'] then
      begin
      if s[z] = '°' then
        Result[i] := ','
        else
          Result[i] := s[z];
      inc(i);
      end;
  SetLength(Result,Pred(i));
  if (blCalc) and (Result <> '') then
    begin
    e := StrToFloat(Result);
    ee := Frac(e)/0.6;
    Result := Format('%f',[Trunc(e)+ee]);
    end;
end;

//...
  showmessage(GradStrToFloatStr('12° 34"',True));