Zapis image do pliku

var
MS : TMemoryStream;
begin
MS := TMemoryStream.Create;
MS.LoadFromFile('dane.mm');
MS.ReadComponent(image1);
MS.Free;
end;

A tak z ciekawości, masz pojęcie co w ogóle robisz? Czy tak na pałę sobie wstawiasz instrukcje? Masz poniżej odczyt - obejrzyj, zamień na zapis :]

  Image1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'dane.bmp');

albo

var
  stream : TMemoryStream;
begin
  stream := TMemoryStream.Create;
  stream.LoadFromFile(ExtractFilePath(Application.ExeName) + 'dane.bmp');
  Image1.Picture.Bitmap.LoadFromStream(stream);
  stream.Free;

Nie mam pojęcia co chcesz osiągnąć, więc masz i loadfromfile i memory stream

dzięki ;)