Foros Club Delphi - como insertar en bd con estos componentes

Hola a todos!!!

Mi problema es que necesito ir introduciendo datos en una tabla de una bd mySQL una vez que se esta ejecutando mi programa. Los componentes que utilizo para conectar delphi 5 y la bd y ver lo que hay dentro son ADOTable, DBGrid, DBNavigator y DataSource.

El codigo que estoy usando es:

Código:

 

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  Db, ADODB, Grids, DBGrids, Buttons, StdCtrls, DBCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    DBNavigator1: TDBNavigator;

    Control: TButton;

    Cerrar: TBitBtn;

    DBGrid1: TDBGrid;

    Tabla: TADOTable;

    DataSource1: TDataSource;

    Video: TButton;

    procedure ControlClick(Sender: TObject);

    procedure CerrarClick(Sender: TObject);

    procedure VideoClick(Sender: TObject);

  private

    { Private declarations }

    cont : integer;

    nombrevideo : String;



  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure InsertarEnTabla(nombrevideo : String; Tabla : TADOTable);

begin

 

//Esto es lo que me haría falta saber, como introducir aqui los campos de 

// mi tabla (fecha, nombre del video, ruta)

 

end;

procedure TForm1.ControlClick(Sender: TObject);

begin

If Control.Caption='Abrir' then

  begin

  Control.Caption:='Cerrar';

  Tabla.open;

  if cont=1 then

    nombrevideo:=form2.SaveDialog1.FileName;

   //Aqui empieza mi problema

    InsertarEnTabla(nombrevideo,Tabla);

  end

Else

  begin

  Control.Caption:='Abrir';

  Tabla.Close;

end;

end;

procedure TForm1.CerrarClick(Sender: TObject);

begin

Tabla.Close;

Halt(0);

end;

procedure TForm1.VideoClick(Sender: TObject);

begin

form2.show;

cont:= 1;

end;



end.

Si podeis ayudarme estaría muy agradecida porque la verdad es que estoy bastante verde en esto de las bases de datos.

Muchas gracias.