Convertir un integer en Real osea IntToReal

[Kmef]

Hola amigos del club!!!

Pues he visto que aqui si saben mucho de Delphi, asi que les pido su ayuda para convertir un integer a Real. les explico si ...
var
ct, st:real;
g:integer;
begin
g:= form5.grad;------>aqui recibo el entero que el usuario quiere de un TrackBar

//y necesito que --> g <--- sea real para pasarlo al cos y el sin
ct:=cos(g); st:=sin(g);

P/E si paso el valor de g directo del TrackBar suponiendo que g:=45 obtengo que ct=1 y st=0; obvio estos valores no me sirven.

Lo que yo quiero obtener es ct=0.525321988 y st=0.850903524 osea necesito convertir g:integer; a real;

un campañero (Black_Ocean) del foro me paso este codigo:
function IntToReal(num: integer): string;var aux: Extended;begin aux := StrToFloat(IntToStr(num)); result := Format('%f', [aux]);end;procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToReal(3));end;pero no funciona Ojala alguien me pueda ayudar!!!!!!

Gracias.

[[basti]]

Para pasar un entero a un real, sólo tienes que multiplicarlo por 1.0:

Código Delphi [-]
  ct := cos(g * 1.0);

De todas maneras, creo que el error lo tienes en que estás usando el cos y el sin con grados sexagesimales, pero en delphi el cos y el sin funcionan con radianes. Así que tendrás que hacer algo así:

Código Delphi [-]
  ct := cos(2.0 * PI * g / 360.0);

[Kmef]

Aun no pruebo lo que me enviaste pero te lo agradesco infinitamente!!! espero funcione!!!