Всё работает нормально и без ошибок. 
	Код: 
	procedure TForm1.FormCreate(Sender: TObject);
const
  FilePath = 'D:\TestFile.txt';
var
  F: TextFile;
begin
  AssignFile(F, FilePath);
  Rewrite(F);
  Writeln(F, 'Text text text');
  CloseFile(F);
  Memo1.Lines.Create.LoadFromFile(FilePath);
end;  
 
	Цитата: 
	
	
		| 
			
				 Сообщение от alexdudchenko2022 
				Здравствуйте, проблема в следующем мне нужно что бы при запуске программы создавался файл в определенную директорию и сразу его подгружать в Мемо. Но проблема в том что при открытие программы не успевает обработать и загрузить появляется ошибка нет файла. 
			
		 | 
	 
	 
 
Из вашего сообщения не понятно, что и в каких объёмах пишется в файл.  
		
	
		
		
		
		
			
		
		
		
		
	
		
		
	
	
	 |