Help me please :) (starfighter game with Delphi 6 + DelphiX)

[Legolas]

You need to release the surface after drawing on it:

[pascal]procedure TForm1.GameEnd;
begin
If Player_No >2 then
begin
DXDraw1.Surface.Fill(0);
with DXDraw1.Surface.Canvas do
begin
Font.Size := 26;
Font.Color := clYellow;
TextOut(290,220,'GAME OVER,YOU LOST ');
TextOut(290,270,'PRESS ESCAPE KEY AND TRY AGAIN');
Release;
end;
DXWaveList1.Items.Find('Tada').Play(False);
DXTimer1.Enabled := False;
Timer1.Enabled := False;
end;
end; [/pascal]