Помогите с Format

[mutabor]

Вобщем задача такая: есть три числа - год, день, и месяц, нужно из них слепить строку в таком формате: дд-мм-гггг.
Знаю что это элементарно, но что-то на ум ничего не приходит так чтоб сразу и не городить лишнего. Подозреваю тут Format функция поможет, вот только с ее параметрами я не дружу Собственно вопрос к тем кто этим часто занимается, или недавно занимался и еще что-то помнит.

[Speeker]

function TXFORMAT(s: string): string;
var
day, m, year: string[4];
begin
day:= Copy(s, 1, 2);
m:= Copy(s, 4, 2);
year:= Copy(s, 7, 4);
fdata:= Format('#%s/%s/%s#', [m, d, y]);
end;

[Stilet]

Speeker

Улыбнуло )

mutabor

Caption:=FormatDateTime('dd-mm-yyyy',now);

[Speeker]

блин, вспомнил!
тот кусок кода - форматирование что бы дату запихнуть в базу....

[Stilet]

форматирование что бы дату запихнуть в базу

Тут дело в том что он не потянет дату типа 1.1.2009
День неверно определится.

[mutabor]

Stilet, то что надо, дякую