كيف انشي فاتورة مبيعات - نسخة قابلة للطباعة

كود :
procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
Table1FN.Text:=Edit1.Text;
Table1NAME.Text:=Edit2.Text;
Table1BAYAN.Text:=Edit3.Text;
Table1QWLTY.Text:=Edit4.Text;
Table1PRICE.Text:=Edit5.Text;
Table1TOT.Text:=Edit6.Text;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table1.Post;
BitBtn1.Enabled:=true;
BitBtn2.Enabled:=false;

Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Append;
BitBtn1.Enabled:=false;
BitBtn2.Enabled:=true;

Table1NAME.Text:=Edit2.Text;
Edit2.SetFocus;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Table1.Open;
Table1.Last;
Edit1.SetFocus;
Label11.Caption:=FormatDateTime('hh:mm',now );
Label4.Caption:=FormatDateTime('',date);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit5Exit(Sender: TObject);
VAR
A,B,C:REAL;
begin
A:=StrToFloat(Edit4.Text);
B:=StrToFloat(Edit5.Text);
C:=A*B;
Edit6.Text:=FloatToStr(C)   ;
end;

procedure TForm1.B(Sender: TObject);
begin
BitBtn1.SetFocus;
end;

procedure TForm1.BitBtn1Exit(Sender: TObject);
begin
Edit2.SetFocus;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SelectNext(ActiveControl,True,true);
end;

procedure TForm1.Edit2Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000401',klf_activate);
end;

procedure TForm1.Edit3Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000401',klf_activate);
end;

procedure TForm1.Edit4Enter(Sender: TObject);
begin
LoadKeyboardLayout('00000409',klf_activate);
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
Table1.Edit;
Edit2.Text:=Table1NAME.Text;
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_F12 then
begin
IF Application.MessageBox('åá ÇäÊ ãÊÇßÏ','ÊÍÐíÜÜÑ',MB_OKCANCEL)=IDOK THEN
BEGIN
Table1.Delete;
END;
END;
END;