[AlexSku]

надо углы переводить из градусов в радианы:

Код:

implementation

uses Math;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:= Format('%.2f', [sin(3*PI/2)]);
  Edit2.Text:= Format('%.2f', [sin(DegToRad(270))]);
end;