Программирование Delphi

Вы не можете использовать функцию StretchDraw для этого, потому что эта функция возвратит иконку с первоначальным размером. Но Вы можете решить эту проблему, используя функцию DrawIconEx.

procedure TForm1.Button1Click(Sender: TObject);
begin
  DrawIconEx(
    Canvas.Handle,
    5,
    5,
    Application.Icon.Handle,
    50,
    50,
    1,
    0,
    DI_NORMAL);
end;