- Canv := TCanvas.Create;
- Canv.Handle := GetWindowDC(0);
- Canv.pen.Color := clred;
- Canv.pen.Width := 20;
- Canv.moveto(Screen.Width, 2);
- Canv.lineto(2, 2);
- Canv.lineto(2, Screen.Height);
- Canv.lineto(Screen.Width, Screen.Height);
- Canv.lineto(Screen.Width, 2);
- Canv.Font.Name := 'Arial';
- Canv.Font.Size := 55;
- Canv.Font.Color := clgreen;
- Canv.Brush.Style := bsclear;
- Canv.textout(240, Screen.Height div 2 - 30, 'Hello to Screen !');
- Canv.Free;