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

var
  Input : Extended;
begin
  Input := StrToFloat( Edit1.Text );       // Edit1.Text = '90'
  Label1.Caption := Format( 'Sinus   : %.4f', [sin(Input)] );  // Label1.Caption = 'Sinus: 0,8940'
  Label2.Caption := Format( 'Kosinus : %.4f', [cos(Input)] );  // Label2.Caption = 'Kosinus: -0,4481'
  Label3.Caption := Format( 'Tangens : %.4f', [tan(Input)] );  // Label3.Caption = 'Tangens: -1,9952'
end;