function xxx: string;
var Query: TADOQuery;
    NoUrut: integer;
    No: string;
begin
     Query:=TADOQuery.Create(Application);
     Query.Connection:=Modul.DBStock;
     Query.Close;
     Query.SQL.Clear;
     Query.SQL.Add('SELECT KODE FROM TTable');
     Query.SQL.Add('ORDER BY KODE');
     Query.Open;
     if Query.RecordCount>0 then begin
        Query.Last;
        NoUrut:=StrToInt(Copy(Query.Fields[0].AsString,2,4))+1;
     end else
         NoUrut:=1;
     No:=IntToStr(NoUrut);
     case Length(No) of
     1 : No:='000'+No;
     2 : No:='00'+No;
     3 : No:='0'+No;
     end;
     Result:='K'+No;
     Query.Destroy;
end;

     if Query.RecordCount>0 then begin
        Query.Last;
        NoUrut:=StrToInt(Copy(Query.Fields[0].AsString,2,4))+1;
     end else
         NoUrut:=1;
     No:=IntToStr(NoUrut);
     case Length(No) of
     1 : No:='000'+No;
     2 : No:='00'+No;
     3 : No:='0'+No;
     end;

function SQLShort(param: String): integer;
begin
  with Query do
  begin
    Close;
    SQL.Text:=param;
    Open;    
    Result:=0;
    if not IsEmpty then
      Result:=Fields[0].AsInteger;    
  end;
end;
begin
  Edit1.Text:=FormatFloat('K0000',SQLShort('SELECT Max(Right(Kode,4)) FROM Table')+1);  
  // klo ga ada fungsi max jd
  // Edit1.Text:=FormatFloat('K0000',SQLShort('SELECT Right(Kode,4) FROM Table ORDER BY Kode DESC')+1);
end;