Dateiformat und Dateigröße auslesen..

[NeoDeluxe]

sFileName := OpenDialog1.FileName;

If UpperCase(ExtractFileExt(sFileName)) = '.DOC' Then Begin
...
// Fileformat is a Word Document
...
end
else If UpperCase(ExtractFileExt(sFileName)) = '.TXT' Then Begin
...
// Fileformat is a Text File
...
end;