>>747=786
>すみません、ヒントください。

新規で以下のコードを試してみてください。

１）Form1 のうえに Memo1、Memo2、Button1、Button2 を配置する
２）以下のコードを各イベントハンドラにコピペする。
３）実行時に
Memo1 に
2002/3/14
あいうえお
かきくけこ
と入力する
４）実行時に
Memo2 に
2002/3/15
さしすせそ
たちつてと
と入力する
４）Button1 を押す
５）Button2 を押す

データの日付境界を #2 で区切ってみました。参考になると思います。

procedure TForm1.Button1Click(Sender: TObject);
var
MS:TMemoryStream;
s:string;
begin
s := Memo1.Text+#2+Memo2.Text;
MS := TMemoryStream.Create;
try
MS.Write(PChar(s)^,Length(s));
MS.SaveToFile('C:\Test.nki');
finally
MS.Free;
end;
Memo1.Lines.Clear;
Memo2.Lines.Clear;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
MS:TMemoryStream;
s:string;
begin
MS := TMemoryStream.Create;
try
MS.LoadFromFile('C:\Test.nki');
SetString(s,PChar(MS.Memory),MS.Size);
finally
MS.Free;
end;
Memo1.Text := Copy(s,0,Pos(#2,s)-1);
Memo2.Text := Copy(s,Pos(#2,s)+1,Length(s));
end;