Delphi String formatting function

I need a Delphi String formatting function, that works in a similar manner to the FORMAT function in VB. It should accept a variant value and a formatting string, and should return a string. The formatting string should use the same syntax as Excel (Format->Number->Custom) and VB. For example: StringFormat (1.5,'0.00') would return 1.50 StringFormat (1000.5,'#,##0.00') would return 1,000.50 StringFormat (now(),'d/m/y') would return 1/2/2 StringFormat (now(),'dd/mmm/yy') would return 1/Feb/02 ... and so on. It should support all formatting characters used in Excel/VB, numbers and dates. It should be able to handle "silly" input. For example: StringFormat ('Test','dd/mm/yyyy') should return 'Test' Code should be compatible with Delphi 4. ## Deliverables Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased. ## Platform Delphi 4 ## Deadline information Coder should be familiar with VB Format function and/or Excel formatting.