procedure TForm1.Button1Click(Sender: TObject);
begin
  MessageBox(Handle, PChar(
    Format(
      'Breddegrad: ' + #9 + '%g' + sLineBreak +
      'Længdegrad: ' + #9 + '%g' + sLineBreak +
      'QRA locator: ' + #9 + '%s',
      [50.07796406022508, 14.43826675415039, 'JO70EC'])
    ),
    PChar(Application.Title),
    MB_OK
  );
end;