A Mais Tocada do Momento...

Revelação
(Raimundo Fagner)

Um dia vestido
De saudade viva
Faz ressuscitar
Casas mal vividas
Camas repartidas
Faz se revelar

Quando a gente tenta
De toda maneira
Dele se guardar
Sentimento ilhado
Morto, amordaçado
Volta a incomodar

- * -

Letra simples e direta, mas inspiradora de emoções fortes. Mais uma vez sou pego "desprevinido"! Estava aqui ...

function FillDir(const AMask: string): TStringList;
var
SearchRec: TSearchRec;
intControl: integer;
begin
Result := TStringList.create;
intControl := FindFirst(AMask, faAnyFile, SearchRec);
if intControl = 0 then
begin
while (intControl = 0) do
begin
Result.Add(SearchRec.Name);
intControl := FindNext(SearchRec);
end;
FindClose(SearchRec);
if ........................................
end;
end;


... quando começa a tocar numa rádio on-line e entre begin's e end's (não sei se literalmente falando) muita coisa se passa ou se passou ou mesmo acontece e aconteceu... :~(