Var T:TextFile; begin AssignFile(T,'File.txt'); ReWrite(T); WriteLn(T,dbedit1.text+' '+dbedit1.text); CloseFile(T); end;