memoria insuficiente en Delphi

[Sand_drax]

Hola, hice un programa en DELPHI 6 que utiliza una tabla y al correrlo por primera vez todo corre normal, pero cuando lo corro por segunda vez me dice: "insuficient memory for this aplication", ¿Que estoy haciendo mal?. El codigo que uso es este (esta dentro de un boton):

procedure TfrmNuevop.cmdagregarClick(Sender: TObject);
var
id : integer;
begin
tblPacientes.Open;
tblPacientes.Last;

// si no hay registros que el id sea 1
// si ya hay registros que tome el id del ultimo y le sume 1
if not tblPacientes.IsEmpty then
id := tblPacientes.Fields[0].Value + 1
else
id := 1;

tblPacientes.insert; // Ponemos la tabla en modo insertar
tblPacientes.fieldbyname('id').asinteger := id;
tblPacientes.fieldbyname('nom').asstring := txtNombre.text;
tblPacientes.fieldbyname('ape').asstring := txtApe.text;
tblPacientes.fieldbyname('status').AsBoolean := true;
tblPacientes.post; // Guardamos los cambios.
txtNombre.Text := '';
txtApe.Text := '';
showmessage('El Nuevo paciente ha sido dado de alta');
end;