[Kailon]

Сообщение от LIONSMILE

Вот код, который у меня получился:
...

У Вас получился!? Не, это у кого-то получился, ибо не знать:

Сообщение от LIONSMILE

...
Как прочитать данные из строк в Stringgrid1 через функции соответственно в Stringgrid2, т.е. например так:
Ячейка "(1,1) Srtinggrid1" -> Функция "Function WGS84_SK42_Lat(Bd, Ld, H: Double): Double;" -> Ячейка "(1,1) Srtinggrid2".
...

выше указанный код написать самому - нельзя :-)
А по делу

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
  Bd, Ld, H: Double;
begin
  Bd := 0; // Ваше значение
  Ld := 0; // Ваше значение
  H  := 0; // Ваше значение
  SG2.Cells[0,0] := FloatToStr(WGS84_SK42_Lat(Bd, Ld, H));
end;