@herux: Guuuuaaampang bangeeeett. pasti blom buka delphi help niihh?? di unit DateUtils ?

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    hasil:TDate;
begin
  // 3 (hari) + 02/04/2009=??? (dengan hasil 05/04/2009)
  s := '3 (hari)'; 
  s:=Copy(s,0,Pos(' ',s)-1); //3 (hari) => 3
  hasil:=StrToDate('02/04/2009')+StrToInt(s); // 3 + 02/04/2009 
  ShowMessage(DateToStr(hasil)); // 05/04/2009
end;