Programacion

*ALTAS*
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
table1.Active:=true;
table1.Append;
table1.FieldByName('CUENTA').AsString:=edit1.Text;table1.FieldByName('NOMBRE').AsString:=edit2.Text;
table1.FieldByName('APELLIDO_P').AsString:=edit3.Text;
table1.FieldByName('APELLIDO_M').AsString:=edit4.Text;
table1.Post;
table1.active:=false;showmessage('Datos Guardados');
edit1.clear;
edit2.clear;
edit3.clear;
edit4.clear;
edit1.SetFocus;
end;


*CONSULTAR CON BOTONES*
procedure TForm2.BitBtn1Click(Sender: TObject);
begintable1.First;{inicio}
edit1.Text:=table1.FieldByName('CUENTA').AsString;
edit2.Text:=table1.FieldByName('NOMBRE').AsString;
edit3.Text:=table1.FieldByName('APELLIDO_P').AsString;edit4.Text:=table1.FieldByName('APELLIDO_M').AsString;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
table1.Next;{siguiente}
edit1.Text:=table1.FieldByName('CUENTA').AsString;edit2.Text:=table1.FieldByName('NOMBRE').AsString;
edit3.Text:=table1.FieldByName('APELLIDO_P').AsString;
edit4.Text:=table1.FieldByName('APELLIDO_M').AsString;
end;

procedureTForm2.BitBtn3Click(Sender: TObject);
begin
table1.Prior;{atras}
edit1.Text:=table1.FieldByName('CUENTA').AsString;
edit2.Text:=table1.FieldByName('NOMBRE').AsString;edit3.Text:=table1.FieldByName('APELLIDO_P').AsString;
edit4.Text:=table1.FieldByName('APELLIDO_M').AsString;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
table1.Last;{ultimo}edit1.Text:=table1.FieldByName('CUENTA').AsString;
edit2.Text:=table1.FieldByName('NOMBRE').AsString;
edit3.Text:=table1.FieldByName('APELLIDO_P').AsString;edit4.Text:=table1.FieldByName('APELLIDO_M').AsString;
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
close;
end;

*BUSQUEDA POR APELLIDO*
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13...