var Pid,Tele,Datum,Namn:string;
    Objekt:BdpCommand;
    AnropInsert:string;
    T:string;
    i:integer;

begin

    Pid:=textbox1.text;
    Tele:=textbox2.text;
    Datum:=textbox3.text;
    Namn:=textbox4.text;
    T:='''';
    bolagdb.open;
    AnropInsert:='Insert into personal values('+T+Pid+T+','+T+tele+T+','+T+Datum+T+','+T+Namn+T+');';
try
 try
    if (Pid[1]>'P') and (Pid.length<5) then
    begin
    label6.text:='Mata in rätt antal versaler'
    end
   else
     begin
 label6.text:='Mata in rätt antal versaler';

    Objekt:=BdpCommand.create(AnropInsert,bolagdb);
    Objekt.ExecuteNonQuery;
    label6.text:='Reseledare tillagd';
    end;
 finally
    bolagdb.close;
    textbox1.clear;
    textbox2.clear;
    textbox3.clear;
    textbox4.clear;
  end;
  except
  on system.formatexception do
    label6.text:='Felaktig inmatning var god att testa igen';
  on system.overflowexception do
    label6.text:='För många versaler var god att testa igen';
  end;
end;