Работа над графикой

[misher]

Работаю над графикой (из журнала ПРОграммист)...
Сделал все как надо но не получается..(на картинке 2 истребителя нужно что б остался 1)
каардинаты картикни 298,130 как сделать что б остался 1 истребитель???
В этой процедуре нужно ввести...

procedure TForm1.FormPaint(Sender: TObject);
var
xs1, ys1: integer;
begin
xs1:= ; ys1:= ; //каардинаты 
DrawShip1(0);
Buffer.canvas.draw(0, 0, BufFon);
Buffer.canvas.draw(xs1, ys1, BufPic);

Buffer.canvas.draw(0, 0, Buffer);
Buffer.canvas.draw(0, 0, Buffer);
end;

[Stilet]

Что-то я ниче гоне пойму.

[misher]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Image2: TImage;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
BufFon,BufSpr,BufPic,Buffer: TBitMap;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BufFon:= TBitMap.Create;
BufSpr:= TBitMap.Create;
BufPic:= TBitMap.Create;
Buffer:= TBitMap.Create;

BufFon.LoadFromFile('D:\ресурсы к статье_DeKot_Как работать с графикой на канве в среде Дельфи\Data\star1.bmp');
BufSpr.LoadFromFile('D:\ресурсы к статье_DeKot_Как работать с графикой на канве в среде Дельфи\Data\ship1.bmp');

BufPic.Width := round((BufSpr.Width) / 2);
BufPic.Height:= BufSpr.Height;
end;

procedure DrawShip1(i: byte);
begin
BufPic.Canvas.CopyRect(bounds(0, 0, BufPic.Width, BufPic.Height),
BufSpr.Canvas, bounds(i * 66, 0, BufPic.Width,
BufPic.Height));
end;


procedure TForm1.FormPaint(Sender: TObject);
var
xs1, ys1: integer;
begin
xs1:= ; ys1:= ;
DrawShip1(0);
Buffer.canvas.draw(0, 0, BufFon);
Buffer.canvas.draw(xs1, ys1, BufPic);

Buffer.canvas.draw(0, 0, Buffer);
Buffer.canvas.draw(0, 0, Buffer);
end;

end.



так понятней?

[misher]

какие я каардинаты не вводил все равно не помогает!!! (xs1:= ; ys1:=