var Pid, command, x, anstdatum: string;
 Telnr: integer;
begin
try
 Pid := textbox1.text;
 Telnr := int32.parse(textbox2.text);
  anstdatum := textbox3.text;
  x := '''';
  Suntripdb.open;
  try
command:='UPDATE Personal SET telefon='+x+telnr.tostring+x+', anstdatum='+x+anstdatum+x+'WHERE pid='+x+pid+x;
mittinsert := bdpcommand.create(command, suntripDB);
mittinsert.executenonquery;

 if textbox2.text<>'' then
 begin
 command := 'UPDATE Personal SET anstdatum=' + x + anstdatum.tostring + x +'WHERE pid=' + x + pid + x;
 mittinsert := bdpcommand.create(command, suntripDB);
 mittinsert.executenonquery;
 end;
 if textbox3.text<>'' then
 begin
 command := 'UPDATE Personal SET telefon=' + x + telnr.tostring + x +'WHERE pid=' + x + pid + x;
 mittinsert := bdpcommand.create(command, suntripDB);
 mittinsert.executenonquery;
  end;

 label5.Text := 'Du har lyckats ändra telefon nummer till ' + telnr.tostring;
 finally
  suntripdb.close;
  end;
 except on
system.FormatException do
label5.text := 'Felaktig inmatning';
end
end;