if table1.findkey(['nama']) then
begin   
edit2.text:=table1.fieldvalues['Alamat'];
   ..........................................................
end
else
  showmessage('data yang anda cari tidak ditemukan');
end;

kayaknya kamu harus pake uses DB dulu..... kalo dah dipake harusnya bisa....

{
Perhatian.... 
kode ini sudah dimodifikasi dari aslinya, hanya sebagai contoh deklarasi saja, jadi dijamin tidak akan jalan jika di run...
}
unit xxx;
interface
// ini deklarasi klausul uses pada section interface 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uIncludeOkCancelHelp, JvComponent, uMain, ComCtrls,  DBCtrls, ExtDlgs, uDM;
type
  TfrmKendaraan = class(TfrmOKCancelHelp)
    pnlNomorPolisi: TPanel;
    dbedNomorPolisi: TDBEdit;
    DBRadioGroup1: TDBRadioGroup;
    procedure FormShow(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
    FImgChanged : Boolean;
  public
    { Public declarations }
  end;
var
  frmKendaraan: TfrmKendaraan;
implementation
{$R *.dfm}
// ini deklarasi klausul uses pada section implementation 
uses
  DB, uConsts;

procedure TfrmKendaraan.btnOkClick(Sender: TObject);
begin
// fill here
  inherited;
end;
procedure TfrmKendaraan.btnCancelClick(Sender: TObject);
begin
// fill here
  inherited;
end;
procedure TfrmKendaraan.FormShow(Sender: TObject);
begin
  inherited;
  FImgChanged := False;
end;
end.