procedure TForm1.Button1Click(Sender: TObject);
var
  SS : TStringList;
  I  : integer;
begin
  SS := TStringList.Create;
  SS.Text := StringReplace(Edit1.Text, ' '{引号中间是空格}, #10, [rfReplaceAll]);
  for I := 0 to SS.Count-1 do
    Showmessage(SS[I]);//这就是截取的结果，就在这里写SQL语句存入数据库
  //至于如何存入数据库，这个你应该会吧。
  SS.Free;
end;

也可以不用TStringList,而是用Copy函数

非常感谢，真是会者不难呀。