Teilstring in einen anderen String kopieren

[fes]

Hallo zusammen!

Hab die Boardsuche und Google schon bemüht, aber nichts gefunden.
Ich möchte ganz einfach aus einem String wie z.b. "blablabla'dfdf'" aus der Zwischenablage ab dem ersten Hochkomma den String auslesen, und in einen Variable scheiben.
Bin schon halber am verzweifeln, weil ich den Fehler ned finden kann:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var
I,k:Integer;

begin
if Clipboard.Hasformat(CF_TEXT) then  
 begin

 c := clipboard.AsText; 
 if y = false then exit;      // sicherung, dass die schleife nur 1 mal durchlaufen wird
  for i:=0 to length(c) do
   begin
    if c[i] = '''' then  //sobald ein Hochkomma vorhanden ist...

     begin 

      for k := 0 to length(c)-2  do  //...wird der string ab da in die variable d geschrieben
       begin

       d[k] := c[i+1];      //c+1 damit der das erste hochkomma nicht mitgeschrieben wird 
                            //und length(c)-2 damit das 2te hochkomma nicht mitgeschrieben wird
       end;

    y:= false;       //sicherung wird gesetzt
     end;


    end;

  end;
  edit1.text := d;  
end;

Aber es funktioniert nicht, d ist leer also ' ' auch wenn man davor d einen wert zuweist.
Des weitern kommt dann noch ein Fehler, wenn man das Programm dann beendet: "Exeption EInvalidPointer in Modul Project1.exe...."

Hat jemand ne Idee?