[Alegun]

Сообщение от cezer

...есть идеи? на счет выборке??

Добвресу, увж cezer, пжлст посмотрите здесь

З.Ы.
У меня такое получилось

Код:

procedure TForm1.Button3Click(Sender: TObject);
var
 sl,sv:TStrings;
 i: integer;
 begin
 sl:= TStringList.Create;
  sv:= TStringList.Create;
 sl.Assign(Memo1.Lines);
Memo1.Clear;
for i:=0 to sl.Count-1 do
begin
sv.Text:= StringReplace(sl.Strings[i],',',#10,[rfReplaceAll]);

if DaysBetween(StrToDate('15.05.13'), StrToDate('23.06.13')) >=
   DaysBetween(StrToDate('15.05.13'), StrToDate(sv.Strings[3])) then
   Memo1.Lines.Add(sl.Strings[i]);
end;

sv.Free;
sl.Free;
end;

т.е. отбираются строчки из всего списка, попадающие между двумя датами, у меня работает.