@snip3r: Pakai TMediaPlayer mas, udah ada di Palettex Delphi. MediaPlayer1.FileName := ''; .... http://armansyah.web.id

var
  datFile: Text;
  temp:string;
  FileName:string;
begin
  FileName:='anu.dat';
  AssignFile(datFile,FileName);
  temp:='';
  while not EOF(datFile) do
     temp:=temp+ReadLine(datFile);
  
  CloseFile(datFile);
  Query1.SQL.Text:=temp;
  Query1.Open;
end;